home *** CD-ROM | disk | FTP | other *** search
/ Weekly Play Boy All Stars / Weekly Play Boy All Stars 1.iso / pc / misaki.exe / misaki.dxr / 00020_-ïbä‘ÉãÅ[Évçƒêð.ls < prev    next >
Encoding:
Text File  |  2003-01-22  |  8.1 KB  |  176 lines
  1. property myTimeOut, myTimeUnit, myTimeOutFrame, myImmediateJump, myStartFrame, myStartTicks, myEndFrame
  2.  
  3. on getBehaviorDescription me
  4.   return "?ﾃｯbﾃ､窶佚嘉｣ﾃ…[ﾃ益ﾃｧﾆ津ｪﾃｰ:ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰" & RETURN & RETURN & "ﾃ厩ﾃ嘘ﾃ陰ﾃ‡ﾃε液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ荏ﾃ嘉嘉嘉ｬﾃ瑛ﾃ嘉｣ﾃ‡窶ｦﾃ栄ﾃ嘉｢ﾃ叡ﾃ碓ﾃ…ﾃｯﾃ栄ﾃ嘉ｧﾃ叡ﾃ益ﾃ‡ﾂｵﾃ②ﾃ ﾃ催ｭﾃ凝ｩﾃｻﾃ､窶佚嘉｣ﾃ…[ﾃ益ﾃｧﾆ津ｪﾃｰﾃ‡ﾂｵﾃ‡ﾃｽﾃ‡ﾂ｢ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ‡ﾃεｮﾃ陛 ﾃ陛‡窶ｦﾃｧﾃ｡ﾃ‡ﾃ古‡ﾃｾﾃ②ﾃ厩ﾃ英ﾃ嘉ｬﾃ‡ﾂ敕ｪLﾃ‡ﾅ津‡ﾂｵﾃ‡ﾆ津ｮzﾃｭuﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾃ敕③ﾃｩwﾃｭﾃ凝‡ﾂｵﾃ‡ﾃｽﾃｩﾃｻﾃ､窶佚‡邃｢ﾃ･oﾃ｢ﾂﾃ‡ﾃ敕‡ﾃ暗‡ﾃ静②ﾃ嘉„ﾃ…[ﾃ詠ﾃ…[ﾃ‡ﾃ陛液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃｮﾃ陛 ﾃ陛‡ﾃε嘉｣ﾃ…[ﾃ益ﾃｧﾆ津ｪﾃｰﾃ‡ﾂ敕ｨIﾃｳﾃｾﾃ‡ﾂｵﾃ②ﾃｩwﾃｭﾃ凝厭ﾃ…[ﾃ雨ﾃ…[ﾃ‡窶ｦﾃｧﾆ津ｪﾃｰﾃ駅ﾃ叡ﾃ栄ﾃ‡ﾂ敕 ﾅｾﾃｬﾃ†ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾃ敕③ﾃｩﾃｻﾃ､窶佚･oﾃ｢ﾂﾃ･窶榲‡ﾃ敕‡ﾃ†ﾃ‡窶ｦﾃ ﾅｾﾃｬﾃ†ﾃ‡ﾃ敕‡ﾃ暗‡ﾂｩﾃ②ﾃ嘉｣ﾃ…[ﾃ益ﾃ‡ﾂ敕､ﾃ†ﾃｳﾃｾﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃﾃ‡窶ｦﾃ‡ﾃ敕‡ﾃ暗‡ﾂｩﾃ‡ﾂ敕ｫIﾃｫﾂ敕‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃ敕③ﾃ‡窶ｹﾃ‡ﾃｽﾃ②ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰ﾃ‡ﾃε厩ﾃ英ﾃ嘉ｬﾃ‡ﾂ敕ｪLﾃ‡ﾅ津‡ﾅｽﾃ‡ﾂｻﾃ‡ﾃ佚‡ﾃ催‡ﾅ津②1 ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ‡ﾂｼﾃ ﾃ催ｭﾃ凝ｩﾃｻﾃ､窶佚‡ﾃε嘉｣ﾃ…[ﾃ益ﾃｧﾆ津ｪﾃｰﾃ‡窶ｦﾃ‡ﾂｻﾃ‡ﾃ凝‡窶ｹﾃ‡ﾃ敕③" & RETURN & RETURN & "ﾃｳLﾃ･窶禿嘉…ﾃ嘉ｬﾃ頴ﾃ…[ﾃ運ﾃ韻ﾃ益:" & RETURN & "ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰" & RETURN & RETURN & "ﾃ英ﾃ嘉｢ﾃ嘉…ﾃ…[ﾃ運:" & RETURN & "- ﾃ嘉｣ﾃ…[ﾃ益ﾃｧﾆ津ｪﾃｰﾃ‡ﾃ敕‡ﾃ暗ｩﾃｻﾃ､窶佚⑿1 ﾃ影ﾃ隠ﾃ叡ﾃ丑ﾃ‡ﾂｩﾃ‡ﾃ 120 ﾃｩﾃｻﾃ､窶佚⒀" & RETURN & "- ﾃｩﾃｻﾃ､窶佚･oﾃ｢ﾂﾃ･窶榲‡窶ｦﾃ ﾅｾﾃｬﾃ†ﾃ‡ﾃ敕‡ﾃ暗厭ﾃ…[ﾃ雨ﾃ…[" & RETURN & "- ﾃｧﾆ津ｪﾃｰﾃ駅ﾃ叡ﾃ栄ﾃ‡ﾃε ﾅｾﾃｬﾃ†; (ﾃｩﾃｻﾃ､窶佚･oﾃ｢ﾂﾃ･窶榲‡ﾃ敕‡ﾃ†ﾃ⑸ﾃ嘉｣ﾃ…[ﾃ益ﾃ‡邃｢ﾃ､ﾃ†ﾃｳﾃｾﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃ)"
  5. end
  6.  
  7. on getBehaviorTooltip me
  8.   return "ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰ﾃ③ﾃ厩ﾃ嘘ﾃ陰ﾃ‡ﾃε液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ荏ﾃ嘉嘉嘉ｬﾃ瑛ﾃ嘉｣ﾃ‡窶ｦﾃ栄ﾃ嘉｢ﾃ叡ﾃ碓ﾃ…ﾃｯﾃ栄ﾃ嘉ｧﾃ叡ﾃ益ﾃ‡ﾂｵﾃ②ﾃ ﾃ催ｭﾃ凝ｩﾃｻﾃ､窶佚嘉｣ﾃ…[ﾃ益ﾃｧﾆ津ｪﾃｰﾃ‡ﾂｵﾃ‡ﾃｽﾃ‡ﾂ｢ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ‡ﾃεｮﾃ陛 ﾃ陛‡窶ｦﾃｧﾃ｡ﾃ‡ﾃ古‡ﾃｾﾃ②ﾃ厩ﾃ英ﾃ嘉ｬﾃ‡ﾂ敕ｪLﾃ‡ﾅ津‡ﾂｵﾃ‡ﾆ津ｮzﾃｭuﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾃ敕③ﾃｩwﾃｭﾃ凝‡ﾂｵﾃ‡ﾃｽﾃｩﾃｻﾃ､窶佚‡邃｢ﾃ･oﾃ｢ﾂﾃ‡ﾃ敕‡ﾃ暗‡ﾃ静②ﾃ嘉„ﾃ…[ﾃ詠ﾃ…[ﾃ‡ﾃ陛液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃｮﾃ陛 ﾃ陛‡ﾃε嘉｣ﾃ…[ﾃ益ﾃｧﾆ津ｪﾃｰﾃ‡ﾂ敕ｨIﾃｳﾃｾﾃ‡ﾂｵﾃ②ﾃｩwﾃｭﾃ凝厭ﾃ…[ﾃ雨ﾃ…[ﾃ‡窶ｦﾃｧﾆ津ｪﾃｰﾃ駅ﾃ叡ﾃ栄ﾃ‡ﾂ敕 ﾅｾﾃｬﾃ†ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾃ敕③"
  9. end
  10.  
  11. on beginSprite me
  12.   initialize(me)
  13. end
  14.  
  15. on exitFrame me
  16.   CheckTimeOut(me)
  17. end
  18.  
  19. on initialize me
  20.   thisSprite = sprite(the currentSpriteNum)
  21.   myStartFrame = thisSprite.startFrame
  22.   myEndFrame = thisSprite.endFrame
  23.   if symbolp(myTimeOutFrame) then
  24.     case myTimeOutFrame of
  25.       #previous:
  26.         jumpToFrame = marker(-1)
  27.       #loop:
  28.         jumpToFrame = marker(0)
  29.       #next:
  30.         jumpToFrame = marker(1)
  31.     end case
  32.   else
  33.     jumpToFrame = marker(myTimeOutFrame)
  34.   end if
  35.   if the currentSpriteNum then
  36.     ErrorAlert(me, #invalidChannel, the currentSpriteNum)
  37.   end if
  38.   if not jumpToFrame then
  39.     jumpToFrame = myEndFrame + 1
  40.     ErrorAlert(me, #missingMarker, jumpToFrame)
  41.   else
  42.     if (jumpToFrame >= myStartFrame) and (jumpToFrame <= myEndFrame) then
  43.       jumpToFrame = myEndFrame + 1
  44.       ErrorAlert(me, #endlessLoop, jumpToFrame)
  45.     end if
  46.   end if
  47.   myStartTicks = the ticks
  48.   case myTimeUnit of
  49.     "ﾃｯb":
  50.       myTimeOut = myTimeOut * 60
  51.     "ﾃｯ邃｢":
  52.       myTimeOut = myTimeOut * 60 * 60
  53.     "ﾃｩﾃｻﾃ､窶˜":
  54.       myTimeOut = myTimeOut * 60 * 60 * 60
  55.   end case
  56.   myTimeOut = myTimeOut + myStartTicks
  57.   myTimeOutFrame = jumpToFrame
  58.   myImmediateJump = myImmediateJump = "ﾃｩﾃｻﾃ､窶佚･oﾃ｢ﾂﾃ･窶榲‡ﾃ敕‡ﾃ†"
  59. end
  60.  
  61. on CheckTimeOut me
  62.   if the ticks > myTimeOut then
  63.     if myImmediateJump or (the frame = myEndFrame) then
  64.       go(myTimeOutFrame)
  65.     end if
  66.   else
  67.     if the frame = myEndFrame then
  68.       go(myStartFrame)
  69.     end if
  70.   end if
  71. end
  72.  
  73. on substituteStrings me, parentString, childStringList
  74.   i = childStringList.count()
  75.   repeat while i
  76.     tempString = EMPTY
  77.     dummyString = childStringList.getPropAt(i)
  78.     replacement = childStringList[i]
  79.     lengthAdjust = dummyString.char.count - 1
  80.     repeat while 1
  81.       position = offset(dummyString, parentString)
  82.       if not position then
  83.         parentString = tempString & parentString
  84.         exit repeat
  85.         next repeat
  86.       end if
  87.       if position <> 1 then
  88.         tempString = tempString & parentString.char[1..position - 1]
  89.       end if
  90.       tempString = tempString & replacement
  91.       delete parentString.char[1..position + lengthAdjust]
  92.     end repeat
  93.     i = i - 1
  94.   end repeat
  95.   return parentString
  96. end
  97.  
  98. on ErrorAlert me, theError, data
  99.   behaviorName = string(me)
  100.   delete word 1 of behaviorName
  101.   delete char -30001 of behaviorName
  102.   delete char -30001 of behaviorName
  103.   case theError of
  104.     #invalidChannel:
  105.       if the runMode = "Author" then
  106.         terror1 = "ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰ﾃ烏ﾃ嘉｢ﾃ…[: ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ ^0ﾃ②ﾃ厩ﾃ益ﾃ嘉｢ﾃ韻ﾃ曳 ^1"
  107.         terror1 = substituteStrings(me, terror1, ["^0": the frame, "^1": the currentSpriteNum])
  108.         terror2 = "ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰 ^0 ﾃ‡邃｢ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ厩ﾃ丑ﾃ嘉､ﾃ益ﾃ曳ﾃ荏ﾃ嘉嘉嘉ｬﾃ瑛ﾃ嘉｣ﾃ‡窶ｦﾃｬYﾃｯtﾃ‡ﾅｽﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾂｻﾃ‡ﾃ佚‡ﾃ催‡ﾅ津‡ﾂｻﾃ‡ﾃ凝‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津③"
  109.         terror2 = substituteStrings(me, terror2, ["^0": behaviorName])
  110.         terror3 = "ﾃ･ﾂｪﾃｧ窶ｺﾃ‡ﾃε荏ﾃ嘉嘉嘉ｬﾃ瑛ﾃ嘉｣ = ^0"
  111.         terror3 = substituteStrings(me, terror3, ["^0": data])
  112.         alert(terror1 & RETURN & RETURN & terror2 & RETURN & RETURN & terror3)
  113.         abort()
  114.       end if
  115.     #missingMarker:
  116.       if the runMode = "Author" then
  117.         terror1 = "ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰ﾃ烏ﾃ嘉｢ﾃ…[: ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ ^0, ﾃ厩ﾃ益ﾃ嘉｢ﾃ韻ﾃ曳 ^1"
  118.         terror1 = substituteStrings(me, terror1, ["^0": the frame, "^1": the currentSpriteNum])
  119.         terror2 = "ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰 ^0 ﾃ‡ﾂｼﾃ厭ﾃ…[ﾃ雨ﾃ…[ ^1 ﾃ‡窶ｦﾃ姥ﾃ嘉嘉嘉ｬﾃ益ﾃ‡ﾃ敕‡ﾃ暗‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃｪ窶ｺﾃｭﾃ凝‡ﾅｽﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾃ敕③ﾃ‡ﾂｪﾃ‡ﾃε厭ﾃ…[ﾃ雨ﾃ…[ﾃ‡邃｢ﾃ･ﾂｩﾃ‡ﾂｬﾃ‡ﾂｩﾃ‡ﾃ凝‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津③[ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰ﾃ英ﾃ嘉｢ﾃ嘉…ﾃ…[ﾃ運]ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓ﾃ‡ﾂｼﾃｳLﾃ･窶禿‡ﾂｻﾃ厭ﾃ…[ﾃ雨ﾃ…[ﾃ‡ﾂ敕ｫIﾃｫﾂ敕‡ﾂｵﾃ‡ﾆ津｢ﾅ ﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③"
  120.         terror2 = substituteStrings(me, terror2, ["^0": behaviorName, "^1": myTimeOutFrame])
  121.         terror3 = "ﾃ‡ﾂｪﾃ‡ﾃε､窶佚液ﾃ嘉･ﾃ…[ﾃ嘉„ ^0 ﾃ‡邃｢ﾃｫ窶榲‡ﾃ古‡ﾃ凝‡窶ｦﾃｩgﾃｳpﾃ‡ﾅｽﾃ‡ﾃ催‡窶ｹﾃ‡ﾃ敕③"
  122.         terror3 = substituteStrings(me, terror3, ["^0": data])
  123.         alert(terror1 & RETURN & RETURN & terror2 & RETURN & RETURN & terror3)
  124.       end if
  125.     #endlessLoop:
  126.       if the runMode = "Author" then
  127.         if symbolp(myTimeOutFrame) then
  128.           case myTimeOutFrame of
  129.             #previous:
  130.               jumpToFrame = marker(-1)
  131.             #loop:
  132.               jumpToFrame = marker(0)
  133.             #next:
  134.               jumpToFrame = marker(1)
  135.           end case
  136.         else
  137.           jumpToFrame = marker(myTimeOutFrame)
  138.         end if
  139.         terror1 = "ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰ﾃ烏ﾃ嘉｢ﾃ…[: ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ ^0, ﾃ厩ﾃ益ﾃ嘉｢ﾃ韻ﾃ曳 ^1"
  140.         terror1 = substituteStrings(me, terror1, ["^0": the frame, "^1": the currentSpriteNum])
  141.         terror2 = "ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ﾃ詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰 ^0 ﾃ‡ﾂｼﾃ厭ﾃ…[ﾃ雨ﾃ…[ ^1 (ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ ^2 )ﾃ‡窶ｦﾃ姥ﾃ嘉嘉嘉ｬﾃ益ﾃ‡ﾃ敕‡ﾃ暗‡ﾃ甘‡ﾂｧﾃ‡窶ｦﾃｪ窶ｺﾃｭﾃ凝‡ﾅｽﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾃ敕③ ﾃ‡ﾂｱﾃ‡ﾃ催‡ﾃ陛詠ﾃ駅ﾃ韻ﾃ詠ﾃ陰ﾃ‡ﾃε厩ﾃ英ﾃ嘉ｬﾃ‡ﾃεｭﾃ愿‡窶ｦﾃ‡窶 ﾃ‡ﾃ暗‡ﾃｽﾃ‡ﾂﾃ②ﾃｱﾅｽﾃ･ﾂｿﾃ嘉｣ﾃ…[ﾃ益ﾃ‡ﾂ敕｣Nﾃ‡ﾂｱﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾃ敕③"
  142.         terror2 = substituteStrings(me, terror2, ["^0": behaviorName, "^1": myTimeOutFrame, "^2": jumpToFrame])
  143.         terror3 = "ﾃ液ﾃ嘉･ﾃ…[ﾃ嘉„ ^0 ﾃ‡邃｢ﾃｫ窶榲‡ﾃ古‡ﾃ凝‡窶ｦﾃｩgﾃｳpﾃ‡ﾅｽﾃ‡ﾃ催‡窶ｹﾃ‡ﾃ敕③"
  144.         terror3 = substituteStrings(me, terror3, ["^0": data])
  145.         alert(terror1 & RETURN & RETURN & terror2 & RETURN & RETURN & terror3)
  146.       end if
  147.   end case
  148. end
  149.  
  150. on isOKToAttach me, aSpriteType, aSpriteNum
  151.   tisok = 0
  152.   if aSpriteType = #script then
  153.     tisok = 1
  154.   end if
  155.   return tisok
  156. end
  157.  
  158. on getPropertyDescriptionList me
  159.   nextMarker = nextMarker(me)
  160.   return [#myTimeOut: [#comment: "ﾃ嘉｣ﾃ…[ﾃ益ﾃｧﾆ津ｪﾃｰﾃ‡ﾃ敕‡ﾃ暗ｩﾃｻﾃ､窶˜", #format: #integer, #range: [#min: 1, #max: 120], #default: 30], #myTimeUnit: [#comment: EMPTY, #format: #string, #range: ["ﾃ影ﾃ隠ﾃ叡ﾃ丑", "ﾃｯb", "ﾃｯ邃｢", "ﾃｩﾃｻﾃ､窶˜"], #default: "ﾃｯb"], #myTimeOutFrame: [#comment: "ﾃｩﾃｻﾃ､窶佚･oﾃ｢ﾂﾃ･窶榲‡窶ｦﾃ ﾅｾﾃｬﾃ†ﾃ‡ﾃ敕‡ﾃ暗厭ﾃ…[ﾃ雨ﾃ…[", #format: #marker, #default: nextMarker], #myImmediateJump: [#comment: "ﾃｩﾃｻﾃ､窶佚･oﾃ｢ﾂﾃ･窶ž", #format: #string, #range: ["ﾃ嘉｣ﾃ…[ﾃ益ﾃ‡邃｢ﾃ､ﾃ†ﾃｳﾃｾﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂｩﾃ‡ﾃ", "ﾃｩﾃｻﾃ､窶佚･oﾃ｢ﾂﾃ･窶榲‡ﾃ敕‡ﾃ†"], #default: "ﾃｩﾃｻﾃ､窶佚･oﾃ｢ﾂﾃ･窶榲‡ﾃ敕‡ﾃ†"]]
  161. end
  162.  
  163. on nextMarker me
  164.   labelString = the labelList
  165.   delete char -30000 of labelString
  166.   markerCount = the number of lines in labelString
  167.   theFrame = the frame
  168.   repeat with i = 1 to markerCount
  169.     theMarker = line i of labelString
  170.     markerFrame = marker(theMarker)
  171.     if theFrame < markerFrame then
  172.       return theMarker
  173.     end if
  174.   end repeat
  175. end
  176.